﻿Imports System.Text
Imports Microsoft.VisualStudio.TestTools.UnitTesting
Imports Microsoft.VisualStudio.TestTools.UnitTesting.Web

<TestClass()> _
Public Class utCustomers

    <TestMethod()> _
    Public Sub GetList()
        Dim actual As New Customers.wsCustomers
        Dim customer As New Customers.beCustomers
        Dim esperado As String = String.Empty
        esperado = "BERGS"
        customer = actual.GetCustomerById("BERGS")
        Assert.AreEqual(esperado,
                        customer.CustomerID,
                        "eCart.Test.Customers.wsCustomers.GetCustomerById did not return the expected value.")
    End Sub

End Class